<p> Stem style </p>

4e6b24a7-5e3a-4741-bb97-552553a77144 5 6 9 decimal

&[DATE] &[TIME] - &[FILENAME]

x o 1 x x 2^13 / - x 3^35 / x * - x 4^335 / + 67 / x 2^* - 51 mat :

Fourier spectral composition

X i el o select ortho el

Mesh U, V  within the bounds L, H L H N xd U 0 : dx H L - N / : i 1 N range U i el L dx i * dx - (+ : for U 41 line :

Fourier... observe => Y:=sys2mat(Y)

L 1 - : H 1 : N 50 : X L H N xd : 41 line

XY i 1 X rows range Y i el X i el o 4 el : for X Y augment 21 line :

Y XY 2 col : λ Y length : Y Y sys2mat : 31 line

t0 1 time :

D i 1 - sqrt : n 0 N 1 - range D n 1 + el 1 λ 1 - sqrt / Y k 1 + el e i 2 π * n * λ / (* k *^* (k 0 N 1 - sum eval * : for D 31 line :

Indexed absolute for Fourier spectrum abs t 1 N 2 range : Fo D mat2sys abs sys2mat : t Fo augment 31 line :

1 time t0 - 0.07 sec *

<p> Stem style </p>

Spectrum stem plot for QuickPlot unicolor data Stem stemX 1 data rows range : i 1 stemX rows range stem i el data i 1 el data i 2 el data i 1 el 022 mat : for i 1 stem rows 1 - range stem i el stem i el stem i 1 + (1 el 1 el 012 mat stack : for V stem 1 el : j 2 stem rows 1 - range V V stem j el stack : for V V data data rows row stack : 71 line :

spectrum abs Stem :

Fake to view DC DC 0.875 0 0.875 spectrum 12 el 1.125 spectrum 12 el 1.125 042 mat :

Fourier spectrum [symmetric]

spectrum DC 2 1 sys

t0 1 time :

symmetry starts @ spectrum[2,2] spectrum [1,2] is the DC component

Alternate for stem style F t 1 N 2 range : Fo Y mwfft mwabs : t Fo augment 31 line :

1 time t0 - 0